﻿Public Class OLE_PPS_ROOT
    Inherits OLE_PPS

    Public TmpDir As String

    Public Sub New(ByVal _Time1 As Integer, ByVal _Time2 As Integer, ByVal Child() As OLE_PPS, Optional ByVal Name As String = "")
        MyBase.New(Nothing, Name, 5, Nothing, Nothing, Nothing, _Time1, _Time2, Nothing, Child)

    End Sub
End Class
